home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
progjour
/
1988
/
06
/
lahey386
/
gettim.asm
< prev
next >
Wrap
Assembly Source File
|
1988-09-06
|
3KB
|
99 lines
;
; GETTIM.ASM
;
; Author: M. Steven Baker
; Date: August 27, 1988
;
; a GETTIM subroutine for LAHEY F77/32 bit
; must assemble with MASM 5.x or higher
; based on SAMPLE.ASM code from LAHEY supplemental disk
; FORTRAN calling convention with INTEGER*4 arguments
; CALL GETTIM(ihr,imin,isec,i100)
.386 ; required to generate 32-bit code/data
; It is very important when linking to F77L-EM/32 program units that any data
; segments your assembly code uses have their class name as 'DATA' in order
; to link correctly. In addition, you must also use the GROUP directive
; to include the data in group DGROUP. DS and ES are set to DGROUP by the
; FORTRAN code, and must be set that way on return. Your code segment must
; also be included in the group CGROUP, and include the directive:
; ASSUME DS:DGROUP, CS:CGROUP
data segment dword public 'DATA'
dgroup group data
data ends
;
; Any code segments should have a class name of 'CODE'.
;
excode segment dword public 'CODE'
cgroup group excode
assume cs:cgroup, ds:dgroup
;
; The procedure names must be declared public to be addressable by
; other modules.
;
public GETTIM
GETTIM proc near
;
; Upon entry to any subroutine, F77L-EM/32 has pushed addresses of
; each argument onto the stack. In the calling program,
; 'gettim' was defined as a simple subroutine;
; When all arguments have been dealt with,
; F77L-EM/32 issues a near call to the named routine.
;
; log4 = example( int2, int4, int2a, int2a(3), dp, cmpx )
; arg1 arg2 arg3 arg4 arg5 arg6
;
; push ebp ; always do this... if EBP/ESP are used
; mov ebp, esp ; and this (ebp must be preserved)
;
; The arguments are pushed right to left; thus, the first argument
; is closest to ebp. At this point, the stack contains:
;
; offset of argn
; ...
; offset of arg1 = IHR
; return code offset (EIP) }-- four byte address from near call
; saved ebp <-- ebp, esp
;
; The first argument address is now 8 bytes from ebp, referenced at [ebp+8].
; Note that the minimum argument displacement is 8 for subroutines and 12
; for functions.
;
; CALL GETTIM(ihr,imin,isec,i100)
;
mov ah,2ch ;DOS Get Time function
int 21h ;returns CH=hour, CL=minute
; DH =second DL=hundredths
mov eax,ss:[esp+4]
mov dword ptr [eax],0 ;zero value
mov [eax],ch ;set minutes
;
mov eax,ss:[esp+8]
mov dword ptr [eax],0 ;zero value
mov [eax],cl ;set minutes
;
mov eax,ss:[esp+0ch]
mov dword ptr [eax],0 ;zero value
mov [eax],dh ;set seconds
;
mov eax,ss:[esp+10h]
mov dword ptr [eax],0 ;zero value
mov [eax],dl ;set 1/100 seconds
;
ret
GETTIM endp
excode ends
end
;
; Do not put any label name or expression after the end statement! This
; defines a program entry point, which has already been defined by the
; Fortran MAIN module.